
## The Social Origins of Democracy and Authoritarianism Reconsidered: Prussia and Sweden in Comparison
## by Erik Bengtsson and Felix Kersting
## Comparative Political Studies
## Swedish municipality data set
##
## 3. SCRIPT TO ENTER THE MORICZ 1892 INEQUALITY DATA AND MERGE IT WITH OUR DATASET
##
##

## the citation for the Moricz data is: Moricz, Sara. (2019). Inequality Measures based on Election Data 1871 and 1892 for Swedish
## Municipalities (1.0) [Data Set]. Lund University. https://doi.org/10.5878/cw7b-g897.
## you neeed to use the DOI, which takes you to the Swedish National Dataservice (https://researchdata.se) website where the Moricz data is available
## download the dataset. it comes in a zip file and when you unzip it there are several excel files, some for year 1871 and some for year 1892
## we focus on year 1892 (as it is closer to our electoral outcomes) and the file to use is "moricz_R1892_source_data in columns.xlsx"
## see to that you have this excel file in your working directory


library(readxl)
library(openxlsx)
library(dplyr)
library(foreign)
library(tidyverse)

# wd
# Set WD
# setwd("")

## read the data
moriczdata<-read_xlsx("moricz_R1892_source_data in columns.xlsx")

## the tax was paid both by individuals and corporations. we are interested in the inequality between individuals, so we drop the corporations
moriczdata<- filter(moriczdata, R92rost_klass=="E")
# dropping unnecessary contextual variables
moriczdata<-select(moriczdata, -R92not, -R92rost_klass, -R92page, -R92sort_order, -R92within_sort_order, -R92muncipality_id, -R92kors_over5_jo, -R92kors_over5_ov,
                   -R92folkmangd, -R92stars)
# there are also several variables on the distribution of votes that could be of interest for further research but will not be used here.
## we are only interested in the top vote owner, agrarian and overall, and the sum of votes, agrarian and overall
## we remove the superfluous variables
moriczdata<-select(moriczdata, -R92fyrk_klass_sum, -R92fyrk_1_5, -R92fyrk_6_10, -R92fyrk_11_25, -R92fyrk_26_50, -R92fyrk_51_100, -R92fyrk_101_250, -R92fyrk_251_500, -R92fyrk_501_1000,
                   -R92fyrk_over_1000, -R92rostagande_klass_sum, -R92rostagande_sum, -R92fyrk_antal_tom50_jo, -R92fyrk_antal_tom50_ov, -R92fyrk_antal_tom20_jo, -R92fyrk_antal_tom20_ov, 
                   -R92fyrk_antal_tom10_jo, -R92fyrk_antal_tom10_ov, -R92fyrk_antal_tom5_jo, -R92fyrk_antal_tom5_ov, -R92fyrk_antal_over5_jo, -R92fyrk_antal_over5_ov)
            

## the municipality variable needs to be called "kommun"
colnames(moriczdata)[3] <- "kommun"

## and the county variable needs to be called "County"
## will also rename these so their exact names match what we use
colnames(moriczdata)[1] <- "County"
moriczdata["County"][moriczdata["County"] == "Stockholms län"] <- "Stockholm"
moriczdata["County"][moriczdata["County"] == "Uppsala län"] <- "Uppland"
moriczdata["County"][moriczdata["County"] == "Södermanlands län."] <- "Södermanland"
moriczdata["County"][moriczdata["County"] == "Östergötlands län"] <- "Östergötland"
moriczdata["County"][moriczdata["County"] == "Jönköpings län"] <- "Jönköping"
moriczdata["County"][moriczdata["County"] == "Kronobergs län"] <- "Kronoberg"
moriczdata["County"][moriczdata["County"] == "Kalmar län"] <- "Kalmar"
moriczdata["County"][moriczdata["County"] == "Gotlands län"] <- "Gotland"
moriczdata["County"][moriczdata["County"] == "Blekinge län"] <- "Blekinge"
moriczdata["County"][moriczdata["County"] == "Kristianstads län"] <- "Kristianstad"
moriczdata["County"][moriczdata["County"] == "Malmöhus län"] <- "Malmöhus"
moriczdata["County"][moriczdata["County"] == "Hallands län"] <- "Halland"
moriczdata["County"][moriczdata["County"] == "Göteborgs och Bohus län"] <- "Gbg och Bohus"
moriczdata["County"][moriczdata["County"] == "Elfsborgs län"] <- "Älvsborg"
moriczdata["County"][moriczdata["County"] == "Skaraborgs Iän"] <- "Skaraborg"
moriczdata["County"][moriczdata["County"] == "Vermlands Iän"] <- "Värmland"
moriczdata["County"][moriczdata["County"] == "Örebro Iän"] <- "Örebro"
moriczdata["County"][moriczdata["County"] == "Vestmanlands Iän"] <- "Västmanland"
moriczdata["County"][moriczdata["County"] == "Kopparbergs Iän1)"] <- "Kopparberg"
moriczdata["County"][moriczdata["County"] == "Gefleborgs Iän"] <- "Gävleborg"
moriczdata["County"][moriczdata["County"] == "Vesternorrlands Iän"] <- "Västernorrland"
moriczdata["County"][moriczdata["County"] == "Jemtlands Iän"] <- "Jämtland"
moriczdata["County"][moriczdata["County"] == "Vesterbottens Iän"] <- "Västerbotten"
moriczdata["County"][moriczdata["County"] == "Norrbottens Iän"] <- "Norrbotten"


## there are many misspellings in the Moricz data
## there are two types of corrections here. (1) misspellings and the like. (2) duplicates: when municipalities have the same name.

## MISSPELLINGS AND THE LIKE
## sthlm
moriczdata["kommun"][moriczdata["kommun"] == "Hysby- Erling- hundra"] <- "Husby-Erlinghundra"
moriczdata["kommun"][moriczdata["kommun"] == "Rinla"] <- "Riala"
moriczdata["kommun"][moriczdata["kommun"] == "Husby-Lång-hundra"] <- "Husby-Långhundra"
moriczdata["kommun"][moriczdata["kommun"] == "Jerfälla"] <- "Järfälla"
moriczdata["kommun"][moriczdata["kommun"] == "Knifsta"] <- "Knivsta"
moriczdata["kommun"][moriczdata["kommun"] == "Lofö"] <- "Lovö"
moriczdata["kommun"][moriczdata["kommun"] == "össeby- Garn"] <- "Össeby-Garn"
moriczdata["kommun"][moriczdata["kommun"] == "östuna"] <- "Östuna"

## uppland
moriczdata["kommun"][moriczdata["kommun"] == "Herkebergn"] <- "Härkeberga"
moriczdata["kommun"][moriczdata["kommun"] == "Husby-Sgatolft"] <- "Husby-Sjutolft"
moriczdata["kommun"][moriczdata["kommun"] == "Skuttange"] <- "Skuttunge"
moriczdata["kommun"][moriczdata["kommun"] == "Erentuna"] <- "Ärentuna"
moriczdata["kommun"][moriczdata["kommun"] == "Håbo-Tible"] <- "Håbo-Tibble"
moriczdata["kommun"][moriczdata["kommun"] == "Kungs-husby"] <- "Kungs-Husby"
moriczdata["kommun"][moriczdata["kommun"] == "Vårfrukyrka"] <- "Vårfrukyrka-Uppland"
moriczdata$kommun[moriczdata$kommun == "Kalmar" & moriczdata$R92harad == "Håbo härad"] <- "Kalmar-Uppland"

## sörmland
moriczdata["kommun"][moriczdata["kommun"] == "Bäliage"] <- "Bälinge-Sörmland"
moriczdata["kommun"][moriczdata["kommun"] == "Bergshammer"] <- "Bergshammar"
moriczdata["kommun"][moriczdata["kommun"] == "Helgonn"] <- "Helgona"
moriczdata["kommun"][moriczdata["kommun"] == "Malm-köping"] <- "Malmköping"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Nikolai"] <- "St Nikolai"
moriczdata["kommun"][moriczdata["kommun"] == "Stenqvista"] <- "Stenkvista"
moriczdata["kommun"][moriczdata["kommun"] == "Strengnäs landskommun"] <- "Strengnäs LF"
moriczdata["kommun"][moriczdata["kommun"] == "Torshälla landskommun"] <- "Torshälla LF"
moriczdata["kommun"][moriczdata["kommun"] == "Trosa landskommun"] <- "Trosa LF"
moriczdata["kommun"][moriczdata["kommun"] == "Blacksta"] <- "Blacksta-Sörmland"

## östergötland
moriczdata["kommun"][moriczdata["kommun"] == "Allbelgona"] <- "Allhelgona"
moriczdata["kommun"][moriczdata["kommun"] == "Furingstand"] <- "Furingstad"
moriczdata["kommun"][moriczdata["kommun"] == "Härads-hammar"] <- "Häradshammar"
moriczdata["kommun"][moriczdata["kommun"] == "Qvarsebo"] <- "Kvarsebo"
moriczdata["kommun"][moriczdata["kommun"] == "Qvillinge"] <- "Kvillinge"
moriczdata["kommun"][moriczdata["kommun"] == "Motala landskommun"] <- "Motala LF"
moriczdata["kommun"][moriczdata["kommun"] == "Ringarum (m. Valdemarsvika köping)"] <- "Ringarum"
moriczdata["kommun"][moriczdata["kommun"] == "Simonstrop"] <- "Simonstorp"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Anna"] <- "St Anna"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Per"] <- "St Per-Dal"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Lars"] <- "St Lars"
moriczdata["kommun"][moriczdata["kommun"] == "Malgesanda"] <- "Malexander"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Johannes"] <- "Norrköping LF"
moriczdata["kommun"][moriczdata["kommun"] == "Svinstad"] <- "Bankekind"


## jönköping
moriczdata["kommun"][moriczdata["kommun"] == "Adelöf"] <- "Adelöv"
moriczdata["kommun"][moriczdata["kommun"] == "Angerds-hestra"] <- "Angerdshestra"
moriczdata["kommun"][moriczdata["kommun"] == "Ekajölands-kommun"] <- "Eksjö LF" 
moriczdata["kommun"][moriczdata["kommun"] == "Grenna landskommun"] <- "Grenna LF"
moriczdata["kommun"][moriczdata["kommun"] == "Hvetlanda"] <- "Vetlanda"
moriczdata["kommun"][moriczdata["kommun"] == "Jälantofta"] <- "Jäluntofta"
moriczdata["kommun"][moriczdata["kommun"] == "Käfsjö"] <- "Kävsjö"
moriczdata["kommun"][moriczdata["kommun"] == "Måasarp"] <- "Månsarp"
moriczdata["kommun"][moriczdata["kommun"] == "NorraSandsjö"] <- "Norra Sandsjö"
moriczdata["kommun"][moriczdata["kommun"] == "Ramqvilla"] <- "Ramkvilla"
moriczdata["kommun"][moriczdata["kommun"] == "Stengårds-hult"] <- "Stengårdshult"
moriczdata["kommun"][moriczdata["kommun"] == "Vernamo"] <- "Vernamo LF"


## kronoberg
moriczdata["kommun"][moriczdata["kommun"] == "Faraby"] <- "Furuby"
moriczdata["kommun"][moriczdata["kommun"] == "Vexjölands-kommun"] <- "Växjö LF"
moriczdata["kommun"][moriczdata["kommun"] == "Väekelsång"] <- "Väckelsång"
moriczdata["kommun"][moriczdata["kommun"] == "Ljunder"] <- "Ljuder"
moriczdata["kommun"][moriczdata["kommun"] == "Hellebergs"] <- "Helleberga"
moriczdata["kommun"][moriczdata["kommun"] == "Nottebåck"] <- "Nottebäck"
moriczdata["kommun"][moriczdata["kommun"] == "Qvenueberga"] <- "Kvenneberga"
moriczdata["kommun"][moriczdata["kommun"] == "Hvittaryd"] <- "Vittaryd"
moriczdata["kommun"][moriczdata["kommun"] == "Ass"] <- "Asa"
moriczdata["kommun"][moriczdata["kommun"] == "SödraSandsjö"] <- "Södra Sandsjö"
moriczdata["kommun"][moriczdata["kommun"] == "Skatelöf"] <- "Skatelöv"


## kalmar
moriczdata["kommun"][moriczdata["kommun"] == "Döderhult (m. Påskallaviks köping)"] <- "Döderhult"
moriczdata["kommun"][moriczdata["kommun"] == "Gamleby (m. Gamleby köping)"] <- "Gamleby"
moriczdata["kommun"][moriczdata["kommun"] == "Gallabo"] <- "Gullabo"
moriczdata["kommun"][moriczdata["kommun"] == "Haunäs"] <- "Hannäs"
moriczdata["kommun"][moriczdata["kommun"] == "Kalmar landskomm"] <- "Kalmar LF"
moriczdata["kommun"][moriczdata["kommun"] == "Karlalunda"] <- "Karlslunda"
moriczdata["kommun"][moriczdata["kommun"] == "Klüekeberga"] <- "Kläckeberga"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Sigfrid"] <- "St Sigfrid"
moriczdata["kommun"][moriczdata["kommun"] == "Törusfall"] <- "Törnsfall"
moriczdata["kommun"][moriczdata["kommun"] == "Viekleby"] <- "Vickleby"
moriczdata["kommun"][moriczdata["kommun"] == "Vimmerby landskommun"] <- "Vimmerby LF"
moriczdata["kommun"][moriczdata["kommun"] == "Verserum"] <- "Virserum"
moriczdata["kommun"][moriczdata["kommun"] == "Ålem (med Pataholms köping)"] <- "Ålem"
moriczdata["kommun"][moriczdata["kommun"] == "Blackstad"] <- "Blacksta-Kalmar"


## blekinge
moriczdata["kommun"][moriczdata["kommun"] == "Torrum"] <- "Torhamn"
moriczdata["kommun"][moriczdata["kommun"] == "Ronneby landskommun"] <- "Ronneby LF"
moriczdata["kommun"][moriczdata["kommun"] == "Sölvesborgs landskommun"] <- "Sölvesborg LF"


## gotland
moriczdata["kommun"][moriczdata["kommun"] == "Hense"] <- "Hemse"


## kristianstad
moriczdata["kommun"][moriczdata["kommun"] == "Ansås"] <- "Ausås"
moriczdata["kommun"][moriczdata["kommun"] == "Qvidinge"] <- "Kvidinge"
moriczdata["kommun"][moriczdata["kommun"] == "Rebbel-berga"] <- "Rebbelberga"
moriczdata["kommun"][moriczdata["kommun"] == "Grefvie"] <- "Grevie"
moriczdata["kommun"][moriczdata["kommun"] == "Qviinge"] <- "Kviinge"
moriczdata["kommun"][moriczdata["kommun"] == "Qvidinge"] <- "Kvidinge"
moriczdata["kommun"][moriczdata["kommun"] == "Åbus"] <- "Åhus"
moriczdata["kommun"][moriczdata["kommun"] == "Qverrestad"] <- "Kverrestad"
moriczdata["kommun"][moriczdata["kommun"] == "Östra Herrestd"] <- "Östra Herrestad"
moriczdata["kommun"][moriczdata["kommun"] == "Vidtsköfle"] <- "Vittskövle"
moriczdata["kommun"][moriczdata["kommun"] == "Vittajö"] <- "Vittsjö"


## malmöhus
moriczdata["kommun"][moriczdata["kommun"] == "Annelöf"] <- "Annelöv"
moriczdata["kommun"][moriczdata["kommun"] == "Bjuf"] <- "Bjuv"
moriczdata["kommun"][moriczdata["kommun"] == "Brunnby (med Arilds kapell)"] <- "Brunnby"
moriczdata["kommun"][moriczdata["kommun"] == "Ekilstorp"] <- "Eskilstorp"
moriczdata["kommun"][moriczdata["kommun"] == "Halm-tad"] <- "Halmtad-Malmöhus"
moriczdata["kommun"][moriczdata["kommun"] == "Hasle-Bösarp"] <- "Hassle-Bösarp"
moriczdata["kommun"][moriczdata["kommun"] == "Hammar-lunda"] <- "Hammarlunda"
moriczdata["kommun"][moriczdata["kommun"] == "Helsing-borgslands-kommun"] <- "Helsingborg LF"
moriczdata["kommun"][moriczdata["kommun"] == "Hurfva"] <- "Hurva"
moriczdata["kommun"][moriczdata["kommun"] == "Hökópinge"] <- "Hököpinge"
moriczdata["kommun"][moriczdata["kommun"] == "Lgelösa och Vestra Odarslöf"] <- "Igelösa"
moriczdata["kommun"][moriczdata["kommun"] == "Hstorp"] <- "Ilstorp"
moriczdata["kommun"][moriczdata["kommun"] == "Kyrkhed-dinge"] <- "Kyrkheddinge"
moriczdata["kommun"][moriczdata["kommun"] == "Kyrko-köpinge"] <- "Kyrkoköpinge"
moriczdata["kommun"][moriczdata["kommun"] == "Qvistofta"] <- "Kvistofta"
moriczdata["kommun"][moriczdata["kommun"] == "Lundslands-kommun"] <- "Lund LF"
moriczdata["kommun"][moriczdata["kommun"] == "Keflinge"] <- "Kävlinge"
moriczdata["kommun"][moriczdata["kommun"] == "Lyddeköpinge"] <- "Löddeköpinge"
moriczdata["kommun"][moriczdata["kommun"] == "Norra Svalöf"] <- "Norra Svalöv"
moriczdata["kommun"][moriczdata["kommun"] == "Norr-hvidinge"] <- "Norrvidinge"
moriczdata["kommun"][moriczdata["kommun"] == "Råhus"] <- "Raus"
moriczdata["kommun"][moriczdata["kommun"] == "Risekathlösa"] <- "Risekatslösa"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Ibb"] <- "St Ibb"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Peters kloster"] <- "St Peters kloster"
moriczdata["kommun"][moriczdata["kommun"] == "Silfåkra"] <- "Silvåkra"
moriczdata["kommun"][moriczdata["kommun"] == "Skarup"] <- "Skurup"
moriczdata["kommun"][moriczdata["kommun"] == "Trelleborgs lands-kommun"] <- "Trelleborg LF"
moriczdata$kommun[moriczdata$kommun == "Näs" & moriczdata$R92harad == "Onsjö härad"] <- "Trollenäs"
moriczdata["kommun"][moriczdata["kommun"] == "Vederöd"] <- "Veberöd"
moriczdata["kommun"][moriczdata["kommun"] == "Vederöd"] <- "Veberöd"
moriczdata["kommun"][moriczdata["kommun"] == "Hvellinge"] <- "Vellinge"
moriczdata["kommun"][moriczdata["kommun"] == "Östa Grefvie"] <- "Östra Grefvie"
moriczdata["kommun"][moriczdata["kommun"] == "Östra Karleby"] <- "Östra Karaby"

## halland
moriczdata["kommun"][moriczdata["kommun"] == "Förlands"] <- "Förlanda"
moriczdata["kommun"][moriczdata["kommun"] == "Hanbals"] <- "Hanhals"
moriczdata["kommun"][moriczdata["kommun"] == "Qvibille"] <- "Kvibille"
moriczdata["kommun"][moriczdata["kommun"] == "Laholms landskommun"] <- "Laholms LF"
moriczdata["kommun"][moriczdata["kommun"] == "Reaneslöf"] <- "Ränneslöv"
moriczdata["kommun"][moriczdata["kommun"] == "Enslöf"] <- "Enslöv"


## gbg och bohus
moriczdata["kommun"][moriczdata["kommun"] == "Forsbälla"] <- "Forshälla"
moriczdata["kommun"][moriczdata["kommun"] == "Qville (med Fjällbackn kapell)"] <- "Kville"
moriczdata["kommun"][moriczdata["kommun"] == "Nya Varfvet"] <- "Nya Varvet"
moriczdata["kommun"][moriczdata["kommun"] == "Skredavik"] <- "Skredsvik"


## älvsborg
moriczdata["kommun"][moriczdata["kommun"] == "Ale-Sköfde"] <- "Ale-Skövde"
moriczdata["kommun"][moriczdata["kommun"] == "Bergjum"] <- "Bergum"
moriczdata["kommun"][moriczdata["kommun"] == "Blindsberg"] <- "Blidsberg"
moriczdata["kommun"][moriczdata["kommun"] == "Brålland"] <- "Brålanda"
moriczdata["kommun"][moriczdata["kommun"] == "Dannicke"] <- "Dannike"
moriczdata["kommun"][moriczdata["kommun"] == "Elfsered"] <- "Elvsered"
moriczdata["kommun"][moriczdata["kommun"] == "Frnändefors"] <- "Frändefors"
moriczdata["kommun"][moriczdata["kommun"] == "Grofvare"] <- "Grovare"
moriczdata["kommun"][moriczdata["kommun"] == "Hösna"] <- "Hössna"
moriczdata["kommun"][moriczdata["kommun"] == "Kalf"] <- "Kalv"
moriczdata["kommun"][moriczdata["kommun"] == "Kattnnga"] <- "Kattunga"
moriczdata["kommun"][moriczdata["kommun"] == "Kullings-Sköfde"] <- "Kullings-Skövde"
moriczdata["kommun"][moriczdata["kommun"] == "Kylingared"] <- "Kölingared"
moriczdata["kommun"][moriczdata["kommun"] == "Qvinnestad"] <- "Kvinnestad"
moriczdata["kommun"][moriczdata["kommun"] == "Ljunshult"] <- "Ljushult"
moriczdata["kommun"][moriczdata["kommun"] == "Mårdaklef"] <- "Mårdaklev"
moriczdata["kommun"][moriczdata["kommun"] == "Norska Skogsbygden"] <- "Skogsbygden"
moriczdata["kommun"][moriczdata["kommun"] == "Refvesjö"] <- "Revesjö"
moriczdata["kommun"][moriczdata["kommun"] == "Rolstad"] <- "Bolstad"
moriczdata["kommun"][moriczdata["kommun"] == "Romeled"] <- "Rommele"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Peter"] <- "St Peter"
moriczdata["kommun"][moriczdata["kommun"] == "Sexdräga"] <- "Sexdrega"
moriczdata["kommun"][moriczdata["kommun"] == "Tydie"] <- "Tydje"
moriczdata["kommun"][moriczdata["kommun"] == "Töllesjö"] <- "Töllsjö"
moriczdata["kommun"][moriczdata["kommun"] == "Vassända-Naglam"] <- "Vassända-Naglum"
moriczdata["kommun"][moriczdata["kommun"] == "Åmåls lands kommun"] <- "Åmål LF"
moriczdata["kommun"][moriczdata["kommun"] == "Ånikskog"] <- "Ånimskog"
moriczdata["kommun"][moriczdata["kommun"] == "Alingsås landsför-samlingo Rödene"] <- "Alingsås LF"
moriczdata["kommun"][moriczdata["kommun"] == "Bråttensby och Landa"] <- "Bråttensby"
moriczdata["kommun"][moriczdata["kommun"] == "Frisla"] <- "Fritsla"


## SKARABORG
moriczdata["kommun"][moriczdata["kommun"] == "Bruunhem"] <- "Brunnhem"
moriczdata["kommun"][moriczdata["kommun"] == "Falköpings vestra lands kommun"] <- "Falköping västra LF"
moriczdata["kommun"][moriczdata["kommun"] == "Falköpingsöstralands kommun"] <- "Falköping östra LF"
moriczdata["kommun"][moriczdata["kommun"] == "Finuerödja"] <- "Finnerödja"
moriczdata["kommun"][moriczdata["kommun"] == "Hasle, Enåsa och Berga"] <- "Hassle"
moriczdata["kommun"][moriczdata["kommun"] == "Hjo lands kommun"] <- "Hjo LF"
moriczdata["kommun"][moriczdata["kommun"] == "Hofby"] <- "Hovby"
moriczdata["kommun"][moriczdata["kommun"] == "Hofva"] <- "Hova"
moriczdata["kommun"][moriczdata["kommun"] == "Hvalstad"] <- "Valstad"
moriczdata["kommun"][moriczdata["kommun"] == "Hyriaga"] <- "Hyringa"
moriczdata["kommun"][moriczdata["kommun"] == "Häjra"] <- "Härja"
moriczdata["kommun"][moriczdata["kommun"] == "Bärjevad"] <- "Härjevad"
moriczdata["kommun"][moriczdata["kommun"] == "Hjerpås"] <- "Jerpås"
moriczdata["kommun"][moriczdata["kommun"] == "Kelfvene"] <- "Kälvene"
moriczdata["kommun"][moriczdata["kommun"] == "Kinne Klefva"] <- "Kinne-Kleva"
moriczdata["kommun"][moriczdata["kommun"] == "Kinne Vedum"] <- "Kinne-Vedum"
moriczdata["kommun"][moriczdata["kommun"] == "Kållands Asaka"] <- "Kållands-Åsaka"
moriczdata["kommun"][moriczdata["kommun"] == "Skånings Asaka"] <- "Skånings-Åsaka"
moriczdata["kommun"][moriczdata["kommun"] == "Larf"] <- "Larv"
moriczdata["kommun"][moriczdata["kommun"] == "Laske Veduin"] <- "Laske-Vedum"
moriczdata["kommun"][moriczdata["kommun"] == "Mofall"] <- "Mofalla"
moriczdata["kommun"][moriczdata["kommun"] == "Norra Fogelås"] <- "Norra Fågelås"
moriczdata["kommun"][moriczdata["kommun"] == "Ofva"] <- "Ova"
moriczdata["kommun"][moriczdata["kommun"] == "Qvännm"] <- "Kvänum"
moriczdata["kommun"][moriczdata["kommun"] == "Ransber"] <- "Ransberg"
moriczdata["kommun"][moriczdata["kommun"] == "Skara lands kommun"] <- "Skara LF"
moriczdata["kommun"][moriczdata["kommun"] == "Skelfvum"] <- "Skälvum"
moriczdata["kommun"][moriczdata["kommun"] == "Skürf"] <- "Skärv"
moriczdata["kommun"][moriczdata["kommun"] == "Sköfdelands kommun"] <- "Skövde LF"
moriczdata["kommun"][moriczdata["kommun"] == "Södra Fogelås"] <- "Södra Fågelås"
moriczdata["kommun"][moriczdata["kommun"] == "Skånings Asaka"] <- "Skånings-Asaka"
moriczdata["kommun"][moriczdata["kommun"] == "Torsö (med Torsö kapell)"] <- "Torsö"
moriczdata["kommun"][moriczdata["kommun"] == "Ufvered"] <- "Uvered"
moriczdata["kommun"][moriczdata["kommun"] == "Utväugstorp"] <- "Utvängstorp"
moriczdata["kommun"][moriczdata["kommun"] == "Vara"] <- "Vara LF"
moriczdata["kommun"][moriczdata["kommun"] == "Vartofta Åsaka"] <- "Vartofta-Åsaka"
moriczdata["kommun"][moriczdata["kommun"] == "Venersnäs"] <- "Vänersnäs"
moriczdata["kommun"][moriczdata["kommun"] == "Versås"] <- "Värsås"
moriczdata["kommun"][moriczdata["kommun"] == "Vilske Klefva"] <- "Vilske-Kleva"
moriczdata["kommun"][moriczdata["kommun"] == "Visttorp"] <- "Vistorp"


## VÄRMLAND
moriczdata["kommun"][moriczdata["kommun"] == "Branskog"] <- "Brunskog"
moriczdata["kommun"][moriczdata["kommun"] == "Elfsbacka"] <- "Elvsbacka"
moriczdata["kommun"][moriczdata["kommun"] == "Glafva"] <- "Glava"
moriczdata["kommun"][moriczdata["kommun"] == "Grafva"] <- "Grava"
moriczdata["kommun"][moriczdata["kommun"] == "Karlstads lands-kommun"] <- "Karlstad LF"
moriczdata["kommun"][moriczdata["kommun"] == "Stafuäs"] <- "Stavnäs"
moriczdata["kommun"][moriczdata["kommun"] == "Vermskog"] <- "Värmskog"
moriczdata["kommun"][moriczdata["kommun"] == "Visnim"] <- "Visnum"
moriczdata["kommun"][moriczdata["kommun"] == "Visnums Kil"] <- "Visnums-Kil"
moriczdata["kommun"][moriczdata["kommun"] == "Öfre Ullerud"] <- "Övre Ullerud"


## ÖREBRO
moriczdata["kommun"][moriczdata["kommun"] == "Askersunds landskomm"] <- "Askersund LF"
moriczdata["kommun"][moriczdata["kommun"] == "Grythyttan (m. Rockesholms bruk)"] <- "Grythyttan"
moriczdata["kommun"][moriczdata["kommun"] == "Gräfve"] <- "Gräve"
moriczdata["kommun"][moriczdata["kommun"] == "Hofsta"] <- "Hovsta"
moriczdata["kommun"][moriczdata["kommun"] == "Qvistbro"] <- "Kvistbro"
moriczdata["kommun"][moriczdata["kommun"] == "Lindesbergs landskommun"] <- "Lindesberg LF"
moriczdata["kommun"][moriczdata["kommun"] == "Hallsberg"] <- "Hallsberg LF"
moriczdata["kommun"][moriczdata["kommun"] == "Karlskoga (m. Karlsdals o. Degerfors kapell)"] <- "Karlskoga"



## kopparberg
moriczdata["kommun"][moriczdata["kommun"] == "Elfdalen (m. Evertsbergs kapell)"] <- "Älvdalen"
moriczdata["kommun"][moriczdata["kommun"] == "Falu lands kommun"] <- "Falu LF"
moriczdata["kommun"][moriczdata["kommun"] == "Gagnef (m. Mockfjärds kapel"] <- "Gagnef"
moriczdata["kommun"][moriczdata["kommun"] == "Hedemora landskommun"] <- "Hedemora LF"
moriczdata["kommun"][moriczdata["kommun"] == "Jerna"] <- "Järna"
moriczdata["kommun"][moriczdata["kommun"] == "Leksand (m. Djura kapell)"] <- "Leksand"
moriczdata["kommun"][moriczdata["kommun"] == "Malung (m. Tyngsjö kapell)"] <- "Malung"
moriczdata["kommun"][moriczdata["kommun"] == "Orsa (med Skattunge kapell)"] <- "Orsa"
moriczdata["kommun"][moriczdata["kommun"] == "Rättvik (m. Dådrans o. Bingsjö kapell)"] <- "Rättvik"
moriczdata["kommun"][moriczdata["kommun"] == "Silfberg"] <- "Silvberg"
moriczdata["kommun"][moriczdata["kommun"] == "Stora Sked vi"] <- "Stora Skedvi"
moriczdata["kommun"][moriczdata["kommun"] == "Stora Tuna (m. Amsbergs kapell"] <- "Stora Tuna"
moriczdata["kommun"][moriczdata["kommun"] == "Svärdsjö (med Svartnäs bruk)"] <- "Svärdsjö"
moriczdata["kommun"][moriczdata["kommun"] == "Sürna (med Idre kapell"] <- "Särna"
moriczdata["kommun"][moriczdata["kommun"] == "Säters landskommun"] <- "Säter LF"
moriczdata["kommun"][moriczdata["kommun"] == "Vika (med Hosjö ka-kapell)"] <- "Vika"
moriczdata["kommun"][moriczdata["kommun"] == "ÄPPelbo"] <- "Äppelbo"


## VÄSTMANLAND
moriczdata["kommun"][moriczdata["kommun"] == "Arboga lands kommun"] <- "Arboga LF"
moriczdata["kommun"][moriczdata["kommun"] == "Hvittinge"] <- "Vittinge"
moriczdata["kommun"][moriczdata["kommun"] == "Karbeuning"] <- "Karbenning"
moriczdata["kommun"][moriczdata["kommun"] == "Kungs Barkarö"] <- "Kungs-Barkarö"
moriczdata["kommun"][moriczdata["kommun"] == "Köpings lands kommun"] <- "Köping LF"
moriczdata["kommun"][moriczdata["kommun"] == "S:t Ilian"] <- "St Ilian"
moriczdata["kommun"][moriczdata["kommun"] == "Sala landskommun"] <- "Sala LF"
moriczdata["kommun"][moriczdata["kommun"] == "Skinskatteberg"] <- "Skinnskatteberg"
moriczdata["kommun"][moriczdata["kommun"] == "Vesterås Barkarö"] <- "Vesterås-Barkarö"
moriczdata["kommun"][moriczdata["kommun"] == "Vester-Våla"] <- "Vestervåla"
moriczdata["kommun"][moriczdata["kommun"] == "Vester-Fernebo"] <- "Vester-Färnebo"


## GÄVLEBORG
moriczdata["kommun"][moriczdata["kommun"] == "Alfta (med Svabensverks kapell"] <- "Alfta"
moriczdata["kommun"][moriczdata["kommun"] == "Bollnäs (m. Annefors o. Katrinebergs kapell"] <- "Bollnäs"    
moriczdata["kommun"][moriczdata["kommun"] == "Färila (med Kårböle Kapell)"] <- "Färila"
moriczdata["kommun"][moriczdata["kommun"] == "Hamränge"] <- "Hamrånge"
moriczdata["kommun"][moriczdata["kommun"] == "Helsing -Tuna"] <- "Hälsingtuna"
moriczdata["kommun"][moriczdata["kommun"] == "Hille (med Oslättfors kapell)"] <- "Hille"
moriczdata["kommun"][moriczdata["kommun"] == "Järfsö"] <- "Järvsö"
moriczdata["kommun"][moriczdata["kommun"] == "Los (med Hamra kapell)"] <- "Los"
moriczdata["kommun"][moriczdata["kommun"] == "Ockelbo (m. Åmots kapell"] <- "Ockelbo"
moriczdata["kommun"][moriczdata["kommun"] == "Ofvansjö"] <- "Ovansjö"
moriczdata["kommun"][moriczdata["kommun"] == "Ofvanåker"] <- "Ovanåker"
moriczdata["kommun"][moriczdata["kommun"] == "Söderala (m. Maråkers kapell)"] <- "Söderala"
moriczdata["kommun"][moriczdata["kommun"] == "Öster-Fernebo"] <- "Öster-Färnebo"


## västernorrland
moriczdata["kommun"][moriczdata["kommun"] == "Tunna"] <- "Tuna-Vnorrland"
moriczdata["kommun"][moriczdata["kommun"] == "Boteå (med Gålsjö bruk)"] <- "Boteå"
moriczdata["kommun"][moriczdata["kommun"] == "Hafverö"] <- "Haverö"
moriczdata["kommun"][moriczdata["kommun"] == "Skön (med Skönsmons kapell)"] <- "Skön"
moriczdata["kommun"][moriczdata["kommun"] == "Öfver-Lännäs"] <- "Över-Lännäs"
moriczdata["kommun"][moriczdata["kommun"] == "Njurunda (med Galtströms och Svartviks kapell)"] <- "Njurunda"
moriczdata["kommun"][moriczdata["kommun"] == "Hässjö (med Lögdö bruk)"] <- "Hässjö"
moriczdata["kommun"][moriczdata["kommun"] == "Ljustorp (med Lag fors bruk)"] <- "Ljustorp"


## jemtland
moriczdata["kommun"][moriczdata["kommun"] == "Elfros"] <- "Elvros"
moriczdata["kommun"][moriczdata["kommun"] == "Hackås (m. Gillhofs kapell)"] <- "Hackås"
moriczdata["kommun"][moriczdata["kommun"] == "Htagen"] <- "Hotagen"
moriczdata["kommun"][moriczdata["kommun"] == "Klöfsjö"] <- "Klövsjö"
moriczdata["kommun"][moriczdata["kommun"] == "Laxajö"] <- "Laxsjö"
moriczdata["kommun"][moriczdata["kommun"] == "Nāskott"] <- "Näskott"
moriczdata["kommun"][moriczdata["kommun"] == "Refsund"] <- "Revsund"
moriczdata["kommun"][moriczdata["kommun"] == "Tennäs (med Ljusnedals bruk)"] <- "Tännäs"
moriczdata["kommun"][moriczdata["kommun"] == "Ytter-Hogdal (med Ängersjö kapell)"] <- "Ytter-Hogdal"
moriczdata["kommun"][moriczdata["kommun"] == "Öfver-Hogdal"] <- "Över-Hogdal"


## VÄSTERBOTTEN
moriczdata["kommun"][moriczdata["kommun"] == "Bygdeå (med Robertsfors bruk)"] <- "Bygdeå"
moriczdata["kommun"][moriczdata["kommun"] == "Skellefteå lands- kommun"] <- "Skellefteå LF"
moriczdata["kommun"][moriczdata["kommun"] == "Umeå lands-kommun (med Holmsunds kap."] <- "Umeå LF"
moriczdata["kommun"][moriczdata["kommun"] == "Vänäs"] <- "Vännäs"
moriczdata["kommun"][moriczdata["kommun"] == "Vilbelmina"] <- "Vilhelmina"


## norrbotten
moriczdata["kommun"][moriczdata["kommun"] == "Arjepluog"] <- "Arjeplog"
moriczdata["kommun"][moriczdata["kommun"] == "Gellivare"] <- "Gällivare"
moriczdata["kommun"][moriczdata["kommun"] == "Jockmock (m. Qvickjocks kap.)"] <- "Jokkmokk"
moriczdata["kommun"][moriczdata["kommun"] == "Enontekis"] <- "Karesuando"
moriczdata["kommun"][moriczdata["kommun"] == "Neder Luleå"] <- "Neder-Luleå"
moriczdata["kommun"][moriczdata["kommun"] == "Neder Torneå"] <- "Neder-Torneå"
moriczdata["kommun"][moriczdata["kommun"] == "Piteå lands kommun"] <- "Piteå LF"
moriczdata["kommun"][moriczdata["kommun"] == "Öfver-Kalix"] <- "Över-Kalix"
moriczdata["kommun"][moriczdata["kommun"] == "Öfver-Luleå"] <- "Över-Luleå"
moriczdata["kommun"][moriczdata["kommun"] == "Öfver-Torneå"] <- "Över-Torneå"
moriczdata["kommun"][moriczdata["kommun"] == "Juckasjärvi"] <- "Jukkasjärvi"




## DOUBLE NAMES
## some parish names (about 70 of them) occur twice. have to revise those too to get unique "kommun" names, so that we can match municipalities by name
moriczdata$kommun[moriczdata$kommun == "Ask" & moriczdata$R92harad == "Aska härad"] <- "Ask-Aska"
moriczdata$kommun[moriczdata$kommun == "Ask" & moriczdata$R92harad == "Onsjö härad"] <- "Ask-Onsjö"

moriczdata$kommun[moriczdata$kommun == "Aspö" & moriczdata$R92harad == "Selebo härad"] <- "Aspö-Sörmland"
moriczdata["kommun"][moriczdata["kommun"] == "Hasslö oeh Aspö"] <- "Aspö-Blekinge"

moriczdata$kommun[moriczdata$kommun == "Berg" & moriczdata$R92harad == "Norrvidinge härad"] <- "Berg-Norrvidinge"
moriczdata$kommun[moriczdata$kommun == "Berg" & moriczdata$R92harad == "Vadsbo härad"] <- "Berg-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Berg" & moriczdata$R92harad == "Snetringe härad"] <- "Berg-Snevringe"
moriczdata$kommun[moriczdata$kommun == "Berg" & moriczdata$R92harad == "Bergs tingslag"] <- "Berg-Jemtland"

moriczdata$kommun[moriczdata$kommun == "Björsäter" & moriczdata$R92harad == "Bankekinds härad"] <- "Björsäter-Bankekind"
moriczdata$kommun[moriczdata$kommun == "Björsäter" & moriczdata$R92harad == "Vadsbo härad"] <- "Björsäter-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Bo" & moriczdata$R92harad == "Vermdö skeppslag"] <- "Bo-Sthlm"
moriczdata$kommun[moriczdata$kommun == "Bo" & moriczdata$R92harad == "Sköllersta härad"] <- "Bo-Örebro"

moriczdata$kommun[moriczdata$kommun == "Boda" & moriczdata$R92harad == "Jöse härad"] <- "Boda-Vermland"
moriczdata$kommun[moriczdata$kommun == "Boda" & moriczdata$R92harad == "Rättviksoch Ore tingslag"] <- "Boda-Kopparberg"

moriczdata$kommun[moriczdata$kommun == "Bredared" & moriczdata$R92harad == "Tönnersjö härad"] <- "Bredared-Halland"
moriczdata$kommun[moriczdata$kommun == "Bredared" & moriczdata$R92harad == "Vedens härad"] <- "Bredared-Veden"

moriczdata$kommun[moriczdata$kommun == "Bro" & moriczdata$R92harad == "Gotlands Norra h:d"] <- "Bro-Gotland"
moriczdata$kommun[moriczdata$kommun == "Bro" & moriczdata$R92harad == "Stångenäs härad"] <- "Bro-Bohus"
moriczdata$kommun[moriczdata$kommun == "Bro" & moriczdata$R92harad == "Näs härad"] <- "Bro-Vermland"
moriczdata$kommun[moriczdata$kommun == "Bro" & moriczdata$R92harad == "Åkerbo härad"] <- "Bro-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Bromma" & moriczdata$R92harad == "Sollentuna härad"] <- "Bromma-Sthlm"
moriczdata$kommun[moriczdata$kommun == "Bromma" & moriczdata$R92harad == "Herrestads härad"] <- "Bromma-Herrestad"

moriczdata$kommun[moriczdata$kommun == "By" & moriczdata$R92harad == "Näs härad"] <- "By-Vermland"
moriczdata$kommun[moriczdata$kommun == "By" & moriczdata$R92harad == "Folkare härad"] <- "By-Kopparberg"

## bälinge in sörmland was misspelled so already fixed
moriczdata$kommun[moriczdata$kommun == "Bälinge" & moriczdata$R92harad == "Bälinge härad"] <- "Bälinge-Uppland"
moriczdata$kommun[moriczdata$kommun == "Bälinge" & moriczdata$R92harad == "Kullings härad"] <- "Bälinge-Älvsborg"

moriczdata$kommun[moriczdata$kommun == "Dalhem" & moriczdata$R92harad == "Gotlands Norra h:d"] <- "Dalhem-Gotland"
moriczdata$kommun[moriczdata$kommun == "Dalhem" & moriczdata$R92harad == "Norra Tjusts h:d"] <- "Dalhem-Kalmar"

moriczdata$kommun[moriczdata$kommun == "Dalby" & moriczdata$R92harad == "Hagunda härad"] <- "Dalby-Hagunda"
moriczdata$kommun[moriczdata$kommun == "Dalby" & moriczdata$R92harad == "Torma härad"] <- "Dalby-Torna"
moriczdata$kommun[moriczdata$kommun == "Dalby" & moriczdata$R92harad == "Elfdals härad"] <- "Dalby-Elvdals"

moriczdata$kommun[moriczdata$kommun == "Degerfors" & moriczdata$R92harad == "Degerfors tingslag"] <- "Degerfors-Vbotten"

moriczdata$kommun[moriczdata$kommun == "Ed" & moriczdata$R92harad == "Sollentuna härad"] <- "Ed-Sollentuna"
moriczdata$kommun[moriczdata$kommun == "Ed" & moriczdata$R92harad == "Grums härad"] <- "Ed-Grums"
moriczdata$kommun[moriczdata$kommun == "Ed" & moriczdata$R92harad == "Sollefteå tingslag"] <- "Ed-Vnorrland"

moriczdata$kommun[moriczdata$kommun == "Ekby" & moriczdata$R92harad == "Runstens härad"] <- "Ekby-Öland"
moriczdata$kommun[moriczdata$kommun == "Ekby" & moriczdata$R92harad == "Luggude härad"] <- "Ekby-Luggude"
moriczdata$kommun[moriczdata$kommun == "Ekby" & moriczdata$R92harad == "Vadsbo härad"] <- "Ekby-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Ekeby" & moriczdata$R92harad == "Olands härad"] <- "Ekeby-Uppland"
moriczdata$kommun[moriczdata$kommun == "Ekeby" & moriczdata$R92harad == "Göstrings härad"] <- "Ekeby-ÖG"
moriczdata$kommun[moriczdata$kommun == "Ekeby" & moriczdata$R92harad == "Gotlands Norra h:d"] <- "Ekeby-Gotland"
moriczdata$kommun[moriczdata$kommun == "Ekeby" & moriczdata$R92harad == "Sköllersta härad"] <- "Ekeby-Örebro"

moriczdata$kommun[moriczdata$kommun == "Fagerhult" & moriczdata$R92harad == "Hansbörds härad"] <- "Fagerhult-Kalmar"
moriczdata$kommun[moriczdata$kommun == "Fagerhult" & moriczdata$R92harad == "Norra Åsbo härad"] <- "Fagerhult-Skåne"

moriczdata$kommun[moriczdata$kommun == "Flistad" & moriczdata$R92harad == "Gullbergs härad"] <- "Flistad-ÖG"
moriczdata$kommun[moriczdata$kommun == "Flistad" & moriczdata$R92harad == "Vadsbo härad"] <- "Flistad-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Floda" & moriczdata$R92harad == "Oppunda härad"] <- "Floda-Oppunda"
moriczdata$kommun[moriczdata$kommun == "Floda" & moriczdata$R92harad == "Nås, Jerna o. Floda tingslag"] <- "Floda-Kopparberg"

moriczdata$kommun[moriczdata$kommun == "Fors" & moriczdata$R92harad == "Vester-Rekarne h:d"] <- "Fors-Rekarne"
moriczdata$kommun[moriczdata$kommun == "Fors" & moriczdata$R92harad == "Flundre härad"] <- "Fors-Flundre"
moriczdata$kommun[moriczdata$kommun == "Fors" & moriczdata$R92harad == "Ragimda tomgslag"] <- "Fors-Ragunda"

moriczdata$kommun[moriczdata$kommun == "Forsa" & moriczdata$R92harad == "Villåttinge härad"] <- "Forsa-Villåttinge"
moriczdata$kommun[moriczdata$kommun == "Forsa" & moriczdata$R92harad == "Forsa tingslag"] <- "Forsa-Gävleborg"

moriczdata$kommun[moriczdata$kommun == "Gillberga" & moriczdata$R92harad == "Vester-Rekarne h:d"] <- "Gillberga-Sörmland"
moriczdata$kommun[moriczdata$kommun == "Gillberga" & moriczdata$R92harad == "Gillbergs härad"] <- "Gillberga-Vermland"

moriczdata$kommun[moriczdata$kommun == "Gryt" & moriczdata$R92harad == "Daga härad"] <- "Gryt-Sörmland"
moriczdata$kommun[moriczdata$kommun == "Gryt" & moriczdata$R92harad == "Hammarkinds h:d"] <- "Gryt-ÖG"
moriczdata$kommun[moriczdata$kommun == "Gryt" & moriczdata$R92harad == "Östra Gölinge härad"] <- "Gryt-Kristianstad"

moriczdata$kommun[moriczdata$kommun == "Gustaf" & moriczdata$R92harad == "Vemmenhögs h:d"] <- "Börringe"
moriczdata$kommun[moriczdata$kommun == "Gustaf" & moriczdata$R92harad == "Falu Södra tingsl"] <- "Gustaf-Kopparberg"

moriczdata$kommun[moriczdata$kommun == "Gustaf Adolf" & moriczdata$R92harad == "Villands härad"] <- "Gustaf Adolf-Villand"
moriczdata$kommun[moriczdata$kommun == "Gustaf Adolf" & moriczdata$R92harad == "Vartofta härad"] <- "Gustaf Adolf-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Gustaf Adolf" & moriczdata$R92harad == "Elfdals härad"] <- "Gustaf Adolf-Elvdals"

moriczdata$kommun[moriczdata$kommun == "Götlunda" & moriczdata$R92harad == "Vadsbo härad"] <- "Götlunda-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Götlunda" & moriczdata$R92harad == "Glanshammars h:d"] <- "Götlunda-Örebro"

moriczdata$kommun[moriczdata$kommun == "Hagby" & moriczdata$R92harad == "Hagunda härad"] <- "Hagby-Uppland"
moriczdata$kommun[moriczdata$kommun == "Hagby" & moriczdata$R92harad == "Södra Möre härad"] <- "Hagby-Kalmar"

moriczdata$kommun[moriczdata$kommun == "Halla" & moriczdata$R92harad == "Jönåkers härad"] <- "Halla-Jönåker"
moriczdata$kommun[moriczdata$kommun == "Halla" & moriczdata$R92harad == "Gotlands Norra h:d"] <- "Halla-Gotland"

moriczdata["kommun"][moriczdata["kommun"] == "Halm-tad"] <- "Halmstad-Malmöhus"

moriczdata$kommun[moriczdata$kommun == "Hammarby" & moriczdata$R92harad == "Vallentuna härad"] <- "Hammarby-Vallentuna"
moriczdata$kommun[moriczdata$kommun == "Hammarby" & moriczdata$R92harad == "Öster-Rekarne h:d"] <- "Hammarby-Rekarne"

moriczdata$kommun[moriczdata$kommun == "Hede" & moriczdata$R92harad == "Sörbygdens härad"] <- "Hede-Bohus"
moriczdata$kommun[moriczdata$kommun == "Hede" & moriczdata$R92harad == "Hede tingslag"] <- "Hede-Jemtland"

moriczdata$kommun[moriczdata$kommun == "Herrestad" & moriczdata$R92harad == "Lane härad"] <- "Herrestad-Bohus"
moriczdata$kommun[moriczdata$kommun == "Herrestad" & moriczdata$R92harad == "Dals härad"] <- "Herrestad-Dal"

moriczdata$kommun[moriczdata$kommun == "Hjortsberga" & moriczdata$R92harad == "Allbo härad"] <- "Hjortsberga-Kronoberg"
moriczdata$kommun[moriczdata$kommun == "Hjortsberga" & moriczdata$R92harad == "Medelstads härad"] <- "Hjortsberga-Blekinge"

moriczdata$kommun[moriczdata$kommun == "Hof" & moriczdata$R92harad == "Göstrings härad"] <- "Hov-Göstring"
moriczdata$kommun[moriczdata$kommun == "Hof" & moriczdata$R92harad == "Bjäre härad"] <- "Hov-Bjäre"
moriczdata$kommun[moriczdata$kommun == "Hof" & moriczdata$R92harad == "Gäsene härad"] <- "Hov-Gäsene"

moriczdata$kommun[moriczdata$kommun == "Holm" & moriczdata$R92harad == "Lagunda härad"] <- "Holm-Lagunda"
moriczdata$kommun[moriczdata$kommun == "Holm" & moriczdata$R92harad == "Halmstards härad"] <- "Holm-Halmstad"
moriczdata$kommun[moriczdata$kommun == "Holm" & moriczdata$R92harad == "Nordals härad"] <- "Holm-Nordal"
moriczdata$kommun[moriczdata$kommun == "Holm" & moriczdata$R92harad == "Indals tingslag"] <- "Holm-Vnorrland"

moriczdata$kommun[moriczdata$kommun == "Horn" & moriczdata$R92harad == "Kinda härad"] <- "Horn-Kinda"
moriczdata$kommun[moriczdata$kommun == "Horn" & moriczdata$R92harad == "Vadsbo härad"] <- "Horn-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Husby" & moriczdata$R92harad == "Husby tingslag"] <- "Husby-Kopparberg"

moriczdata$kommun[moriczdata$kommun == "Hellestad" & moriczdata$R92harad == "Torma härad"] <- "Torna-Hellestad"
moriczdata$kommun[moriczdata$kommun == "Hellestad" & moriczdata$R92harad == "Gäsene härad"] <- "Hellestad-Älvsborg"
moriczdata$kommun[moriczdata$kommun == "Hällestad" & moriczdata$R92harad == "Finspånga läns hd"] <- "Hellestad-ÖG"

moriczdata$kommun[moriczdata$kommun == "Härlunda" & moriczdata$R92harad == "Allbo härad"] <- "Härlunda-Kronoberg"
moriczdata$kommun[moriczdata$kommun == "Härlunda" & moriczdata$R92harad == "Skånings härad"] <- "Härlunda-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Hög" & moriczdata$R92harad == "Harjagers härad"] <- "Hög-Harjager"
moriczdata$kommun[moriczdata$kommun == "Hög" & moriczdata$R92harad == "Forsa tingslag"] <- "Hög-Gävleborg"

moriczdata$kommun[moriczdata$kommun == "Högby" & moriczdata$R92harad == "Göstrings härad"] <- "Högby-Göstring"
moriczdata$kommun[moriczdata$kommun == "Högby" & moriczdata$R92harad == "Åkerbo härad"] <- "Högby-Öland"

moriczdata$kommun[moriczdata$kommun == "Jerbo" & moriczdata$R92harad == "Valbo härad"] <- "Järbo-Valbo"
moriczdata$kommun[moriczdata$kommun == "Jäderbo" & moriczdata$R92harad == "Gestriklands Vestra tingslag"] <- "Järbo-Gävleborg"

moriczdata$kommun[moriczdata$kommun == "Karl Gustaf" & moriczdata$R92harad == "Marks härad"] <- "Karl Gustav-Mark"
moriczdata$kommun[moriczdata$kommun == "Karl Gustaf" & moriczdata$R92harad == "Neder-Torneå och Karl Gustafs tingsl"] <- "Karl Gustav-Norrbotten"

moriczdata$kommun[moriczdata$kommun == "Kila" & moriczdata$R92harad == "Jönåkers härad"] <- "Kila-Jönåker"
moriczdata$kommun[moriczdata$kommun == "Kila" & moriczdata$R92harad == "Näs härad"] <- "Kila-Vermland"
moriczdata$kommun[moriczdata$kommun == "Kila" & moriczdata$R92harad == "Öfver-Tjurbo h:d."] <- "Kila-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Korsberga" & moriczdata$R92harad == "Östra härad"] <- "Korsberga-Jkpg"
moriczdata$kommun[moriczdata$kommun == "Korsberga" & moriczdata$R92harad == "Vartofta härad"] <- "Korsberga-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Kumla" & moriczdata$R92harad == "Lysings härad"] <- "Kumla-Lysing"
moriczdata$kommun[moriczdata$kommun == "Kumla" & moriczdata$R92harad == "Kumla härad"] <- "Kumla-Örebro"
moriczdata$kommun[moriczdata$kommun == "Kumla" & moriczdata$R92harad == "Öfver-Tjurbo h:d."] <- "Kumla-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Kyrkås" & moriczdata$R92harad == "Barne härad"] <- "Kyrkås-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Kyrkås" & moriczdata$R92harad == "Lits tingslag"] <- "Kyrkås-Jemtland"

moriczdata$kommun[moriczdata$kommun == "Landa" & moriczdata$R92harad == "Fjäre härad"] <- "Landa-Fjäre"
moriczdata$kommun[moriczdata$kommun == "Landa" & moriczdata$R92harad == "Kullings härad"] <- "Landa-Kulling"

moriczdata$kommun[moriczdata$kommun == "Lena" & moriczdata$R92harad == "Norunda härad"] <- "Lena-Norunda"
moriczdata$kommun[moriczdata$kommun == "Lena" & moriczdata$R92harad == "Kullings härad"] <- "Lena-Kulling"

moriczdata$kommun[moriczdata$kommun == "Lillkyrka" & moriczdata$R92harad == "Trögds härad"] <- "Lillkyrka-Uppland"
moriczdata$kommun[moriczdata$kommun == "Lillkyrka" & moriczdata$R92harad == "Åkerbo härad"] <- "Lillkyrka-ÖG"
moriczdata$kommun[moriczdata$kommun == "Lillkyrka" & moriczdata$R92harad == "Glanshammars h:d"] <- "Lillkyrka-Örebro"

moriczdata$kommun[moriczdata$kommun == "Ljung" & moriczdata$R92harad == "Gullbergs härad"] <- "Ljung-ÖG"
moriczdata$kommun[moriczdata$kommun == "Ljung" & moriczdata$R92harad == "Inlands Fräkne h:d"] <- "Ljung-Bohus"

moriczdata$kommun[moriczdata$kommun == "Ljungby" & moriczdata$R92harad == "Södra Möre härad"] <- "Ljungby-Kalmar"
moriczdata$kommun[moriczdata$kommun == "Ljungby" & moriczdata$R92harad == "Faurås härad"] <- "Ljungby-Halland"
moriczdata$kommun[moriczdata$kommun == "Ljungby (m. Ljungby köping)" & moriczdata$R92harad == "Sunnerbo härad"] <- "Ljungby-Kronoberg"

moriczdata$kommun[moriczdata$kommun == "Lunda" & moriczdata$R92harad == "Seminghundra h:d"] <- "Lunda-Seminghundra"
moriczdata$kommun[moriczdata$kommun == "Lunda" & moriczdata$R92harad == "Jönåkers härad"] <- "Lunda-Jönåker"

moriczdata$kommun[moriczdata$kommun == "Lundby" & moriczdata$R92harad == "Östra Hisings h:d"] <- "Lundby-Gbg"
moriczdata$kommun[moriczdata$kommun == "Lundby" & moriczdata$R92harad == "Thundra härad"] <- "Lundby-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Länna" & moriczdata$R92harad == "Frötuna och Länna skeppslag"] <- "Länna-Sthlm"
moriczdata$kommun[moriczdata$kommun == "Länna" & moriczdata$R92harad == "Åkers härad"] <- "Länna-Sörmland"	

moriczdata$kommun[moriczdata$kommun == "Löt" & moriczdata$R92harad == "Trögds härad"] <- "Löt-Uppland"
moriczdata$kommun[moriczdata$kommun == "Löt" & moriczdata$R92harad == "Runstens härad"] <- "Löt-Öland"

moriczdata$kommun[moriczdata$kommun == "Malma" & moriczdata$R92harad == "Viste härad"] <- "Malma-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Malma" & moriczdata$R92harad == "Åkerbo härad"] <- "Malma-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Marbäck" & moriczdata$R92harad == "Norra Vedbo härad"] <- "Marbäck-Jkpg"
moriczdata$kommun[moriczdata$kommun == "Marbäck" & moriczdata$R92harad == "Kinds härad"] <- "Marbäck-Älvsborg"

moriczdata$kommun[moriczdata$kommun == "Mellby" & moriczdata$R92harad == "Kållands härad"] <- "Mellby-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Mellby" & moriczdata$R92harad == "Södra Vedbo härad"] <- "Mellby-Jkpg"

moriczdata$kommun[moriczdata$kommun == "Mo" & moriczdata$R92harad == "Bullarens härad"] <- "Mo-Bohus"
moriczdata$kommun[moriczdata$kommun == "Mo" & moriczdata$R92harad == "Tössbo härad"] <- "Mo-Älvsborg"
moriczdata$kommun[moriczdata$kommun == "Mo" & moriczdata$R92harad == "Vadsbo härad"] <- "Mo-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Mo" & moriczdata$R92harad == "Sädra Helsinglands Östra tingslag."] <- "Mo-Gävleborg"
moriczdata$kommun[moriczdata$kommun == "Mo" & moriczdata$R92harad == "Själevads tingslag"] <- "Mo-Vnorrland"

moriczdata$kommun[moriczdata$kommun == "Nora" & moriczdata$R92harad == "Våla härad"] <- "Nora-Vmanland"
moriczdata$kommun[moriczdata$kommun == "Nora" & moriczdata$R92harad == "Nora tingslag"] <- "Nora-Vnorrland"
moriczdata$kommun[moriczdata$kommun == "Nora lands kommun"] <- "Nora LF"

moriczdata$kommun[moriczdata$kommun == "Nykyrka" & moriczdata$R92harad == "Jönåkers härad"] <- "Nykyrka-Jönåker"
moriczdata$kommun[moriczdata$kommun == "Nykyrka" & moriczdata$R92harad == "Vartofta härad"] <- "Nykyrka-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Nysund"] <- "Nysund-Örebro"

moriczdata$kommun[moriczdata$kommun == "Nysätra" & moriczdata$R92harad == "Lagunda härad"] <- "Nysätra-Lagunda"
moriczdata$kommun[moriczdata$kommun == "Nysätra" & moriczdata$R92harad == "Nysätra tingslag"] <- "Nysätra-Vbotten"

moriczdata$kommun[moriczdata$kommun == "Näs" & moriczdata$R92harad == "Gotlands Södra h:d"] <- "Näs-Gotland"
moriczdata$kommun[moriczdata$kommun == "Näs" & moriczdata$R92harad == "Onsjö härad"] <- "Näs-Onsjö"
moriczdata$kommun[moriczdata$kommun == "Näs" & moriczdata$R92harad == "Vartofta härad"] <- "Näs-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Näs" & moriczdata$R92harad == "Hackås o. Nästingsl"] <- "Näs-Jemtland"

moriczdata$kommun[moriczdata$kommun == "Näsby" & moriczdata$R92harad == "Östra härad"] <- "Näsby-Jkpg"
moriczdata$kommun[moriczdata$kommun == "Näsby" & moriczdata$R92harad == "Nya Kopparbergs bergslag"] <- "Näsby-Örebro"

moriczdata$kommun[moriczdata$kommun == "Odensvi" & moriczdata$R92harad == "Södra Tjusts h:d"] <- "Odensvi-Kalmar"
moriczdata$kommun[moriczdata$kommun == "Odensvi" & moriczdata$R92harad == "Åkerbo härad"] <- "Odensvi-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Refvinge" & moriczdata$R92harad == "Torma härad"] <- "Revinge-Torna"
moriczdata$kommun[moriczdata$kommun == "Refvinge" & moriczdata$R92harad == "Halmstards härad"] <- "Revinge-Halland"

moriczdata$kommun[moriczdata$kommun == "Rinkaby" & moriczdata$R92harad == "Villands härad"] <- "Rinkaby-Villand"
moriczdata$kommun[moriczdata$kommun == "Rinkaby" & moriczdata$R92harad == "Glanshammars h:d"] <- "Rinkaby-Örebro"

moriczdata$kommun[moriczdata$kommun == "Russby" & moriczdata$R92harad == "Sunnerbo härad"] <- "Ryssby-Kronoberg"
moriczdata$kommun[moriczdata$kommun == "Ryssby" & moriczdata$R92harad == "Norra Möre h:d"] <- "Ryssby-Kalmar"

moriczdata$kommun[moriczdata$kommun == "Råda" & moriczdata$R92harad == "Askims härad"] <- "Råda-Gbg"
moriczdata$kommun[moriczdata$kommun == "Råda" & moriczdata$R92harad == "Kållands härad"] <- "Råda-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Segerstad" & moriczdata$R92harad == "Gräsgårds härad"] <- "Segerstad-Öland"
moriczdata$kommun[moriczdata$kommun == "Segerstad" & moriczdata$R92harad == "Gudhems härad"] <- "Segerstad-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Segerstad" & moriczdata$R92harad == "Grums härad"] <- "Segerstad-Vermland"

moriczdata$kommun[moriczdata$kommun == "Skede" & moriczdata$R92harad == "Östra härad"] <- "Skede"
moriczdata$kommun[moriczdata$kommun == "Skede" & moriczdata$R92harad == "Vette härad"] <- "Skee"

moriczdata$kommun[moriczdata$kommun == "Skog" & moriczdata$R92harad == "Nora tingslag"] <- "Skog-Vnorrland"
moriczdata$kommun[moriczdata$kommun == "Skog (med Lingbo kapell)" & moriczdata$R92harad == "Sädra Helsinglands Östra tingslag."] <- "Skog-Gävleborg"

moriczdata$kommun[moriczdata$kommun == "Solberga" & moriczdata$R92harad == "Vemmenhögs h:d"] <- "Solberga-Skåne"
moriczdata$kommun[moriczdata$kommun == "Solberga" & moriczdata$R92harad == "Inlands Nordre h:d"] <- "Solberga-Bohus"
moriczdata$kommun[moriczdata$kommun == "Solberga" & moriczdata$R92harad == "Redvägs härad"] <- "Solberga-Älvsborg"

moriczdata$kommun[moriczdata$kommun == "S:t Olof" & moriczdata$R92harad == "Albo härad"] <- "St Olof-Albo"
moriczdata$kommun[moriczdata$kommun == "S:t Olof o. S:t Per" & moriczdata$R92harad == "Erlinghundra h:d"] <- "St Olof-Erlinghundra"
	
moriczdata$kommun[moriczdata$kommun == "Stenkyrka" & moriczdata$R92harad == "Gotlands Norra h:d"] <- "Stenkyrka-Gotland"
moriczdata$kommun[moriczdata$kommun == "Stenkyrka (med Rönnängs och Klädesholmens kap" & moriczdata$R92harad == "Tjörns härad"] <- "Stenkyrka-Bohus"                        

moriczdata$kommun[moriczdata$kommun == "Sunne" & moriczdata$R92harad == "Fryksdals härad"] <- "Sunne-Vermland"
moriczdata$kommun[moriczdata$kommun == "Sunne" & moriczdata$R92harad == "Sunne tingslag"] <- "Sunne-Jemtland"

moriczdata$kommun[moriczdata$kommun == "Svenneby" & moriczdata$R92harad == "Qville härad"] <- "Svenneby-Bohus"
moriczdata["kommun"][moriczdata["kommun"] == "Sevenneby"] <- "Svenneby-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Sånga" & moriczdata$R92harad == "Färentuna härad"] <- "Sånga-Sthlm"
moriczdata$kommun[moriczdata$kommun == "Sånga" & moriczdata$R92harad == "Boteå tingslag"] <- "Sånga-Vnorrland"

moriczdata$kommun[moriczdata$kommun == "Säby" & moriczdata$R92harad == "Norra Vedbo härad"] <- "Säby-Jkpg"
moriczdata$kommun[moriczdata$kommun == "Säby" & moriczdata$R92harad == "Rönnebergs härad"] <- "Säby-Skåne"
moriczdata$kommun[moriczdata$kommun == "Säby" & moriczdata$R92harad == "Snetringe härad"] <- "Säby-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Säter" & moriczdata$R92harad == "Vadsbo härad"] <- "Säter-Skaraborg"
	
moriczdata$kommun[moriczdata$kommun == "Sörby" & moriczdata$R92harad == "Vestra Gölinge h:d"] <- "Sörby-Göinge"
moriczdata$kommun[moriczdata$kommun == "Sörby" & moriczdata$R92harad == "Vilske härad"] <- "Sörby-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Tofta" & moriczdata$R92harad == "Gotlands Södra h:d"] <- "Tofta-Gotland"
moriczdata$kommun[moriczdata$kommun == "Tofta" & moriczdata$R92harad == "Rönnebergs härad"] <- "Tofta-Skåne"

moriczdata$kommun[moriczdata$kommun == "Torp" & moriczdata$R92harad == "Orusts Östra h:d"] <- "Torp-Bohus"
moriczdata$kommun[moriczdata$kommun == "Torp" & moriczdata$R92harad == "Valbo härad"] <- "Torp-Älvsborg"
moriczdata$kommun[moriczdata$kommun == "Torp" & moriczdata$R92harad == "Torps tingslag"] <- "Torp-Vnorrland"

moriczdata$kommun[moriczdata$kommun == "Torup" & moriczdata$R92harad == "Vestra Gölinge h:d"] <- "Torup-Göinge"
moriczdata$kommun[moriczdata$kommun == "Torup" & moriczdata$R92harad == "Halmstards härad"] <- "Torup-Halmstad"

moriczdata$kommun[moriczdata$kommun == "Torpa" & moriczdata$R92harad == "Vdre härad"] <- "Torpa-Ydre"
moriczdata$kommun[moriczdata$kommun == "Torpa" & moriczdata$R92harad == "Sunnerbo härad"] <- "Torpa-Kronoberg"
moriczdata$kommun[moriczdata$kommun == "Torpa" & moriczdata$R92harad == "Himle härad"] <- "Torpa-Halland"
moriczdata$kommun[moriczdata$kommun == "Torpa" & moriczdata$R92harad == "Vedens härad"] <- "Torpa-Älvsborg"
moriczdata$kommun[moriczdata$kommun == "Torpa" & moriczdata$R92harad == "Åkerbo härad"] <- "Torpa-Vmanland"

moriczdata$kommun[moriczdata$kommun == "Torsåker" & moriczdata$R92harad == "Rönö härad"] <- "Torsåker-Rönö"
moriczdata$kommun[moriczdata$kommun == "Torsåker" & moriczdata$R92harad == "Gestriklands Vestra tingslag"] <- "Torsåker-Gävleborg"
moriczdata$kommun[moriczdata$kommun == "Torsåker" & moriczdata$R92harad == "Boteå tingslag"] <- "Torsåker-Vnorrland"

moriczdata$kommun[moriczdata$kommun == "Tuna" & moriczdata$R92harad == "Olands härad"] <- "Tuna-Olands"
moriczdata$kommun[moriczdata$kommun == "Tuna" & moriczdata$R92harad == "Jönåkers härad"] <- "Tuna-Jönåker"
moriczdata$kommun[moriczdata$kommun == "Tuna" & moriczdata$R92harad == "Tunaläns härad"] <- "Tuna-Kalmar"

moriczdata$kommun[moriczdata$kommun == "Tveta" & moriczdata$R92harad == "Öknebo härad"] <- "Tveta-Stockholm"
moriczdata$kommun[moriczdata$kommun == "Tveta" & moriczdata$R92harad == "Aspelands härad"] <- "Tveta-Kalmar"
moriczdata$kommun[moriczdata$kommun == "Tveta" & moriczdata$R92harad == "Näs härad"] <- "Tveta-Vermland"

moriczdata$kommun[moriczdata$kommun == "Täby" & moriczdata$R92harad == "Danderyds sk:lag"] <- "Täby-Danderyd"
moriczdata$kommun[moriczdata$kommun == "Täby" & moriczdata$R92harad == "Örebro härad"] <- "Täby-Örebro"

moriczdata$kommun[moriczdata$kommun == "Tärna" & moriczdata$R92harad == "Simtuna härad"] <- "Tärna-Simtuna"
moriczdata$kommun[moriczdata$kommun == "Tärna" & moriczdata$R92harad == "Lycksele lappmarks tingslag"] <- "Tärna-Vbotten"

moriczdata$kommun[moriczdata$kommun == "Vall" & moriczdata$R92harad == "Gotlands Södra h:d"] <- "Vall"
moriczdata$kommun[moriczdata$kommun == "Vall" & moriczdata$R92harad == "Tjörns härad"] <- "Valla"

moriczdata$kommun[moriczdata$kommun == "Vallby" & moriczdata$R92harad == "Öster-Rekarne h:d"] <- "Vallby-Rekarne"
moriczdata$kommun[moriczdata$kommun == "Vallby" & moriczdata$R92harad == "Jerrestads härad"] <- "Vallby-Skåne"
moriczdata["kommun"][moriczdata["kommun"] == "Vellby"] <- "Vallby-Uppland"

moriczdata$kommun[moriczdata$kommun == "Varnum" & moriczdata$R92harad == "Ås härad"] <- "Varnum-Älvsborg"
moriczdata$kommun[moriczdata$kommun == "Varnum" & moriczdata$R92harad == "Ölme härad"] <- "Varnum-Vermland"

moriczdata$kommun[moriczdata$kommun == "Hvarf" & moriczdata$R92harad == "Aska härad"] <- "Hvarf-Aska" ## this one will be merged with Styra, see code below
moriczdata$kommun[moriczdata$kommun == "Hvarf" & moriczdata$R92harad == "Vartofta härad"] <- "Varv-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Vestra Ryd" & moriczdata$R92harad == "Bro härad"] <- "Vestra Ryd-Uppland"
moriczdata$kommun[moriczdata$kommun == "Vestra Ryd" & moriczdata$R92harad == "Vdre härad"] <- "Vestra Ryd-Ydre"

moriczdata$kommun[moriczdata$kommun == "Viby" & moriczdata$R92harad == "Vifolka härad"] <- "Viby-Vifolka"
moriczdata$kommun[moriczdata$kommun == "Viby" & moriczdata$R92harad == "Grimstens härad"] <- "Viby-Grimsten"

moriczdata$kommun[moriczdata$kommun == "Vist" & moriczdata$R92harad == "Hanekinds härad"] <- "Vist-Hanekind"
moriczdata$kommun[moriczdata$kommun == "Vist" & moriczdata$R92harad == "Redvägs härad"] <- "Vist-Älvsborg"

moriczdata$kommun[moriczdata$kommun == "Våmb" & moriczdata$R92harad == "Färs härad"] <- "Våmb-Malmöhus"
moriczdata$kommun[moriczdata$kommun == "Våmb" & moriczdata$R92harad == "Kåkinds härad"] <- "Våmb-Skaraborg"

moriczdata$kommun[moriczdata$kommun == "Vånga" & moriczdata$R92harad == "Finspånga läns hd"] <- "Vånga-ÖG"
moriczdata$kommun[moriczdata$kommun == "Vånga" & moriczdata$R92harad == "Villands härad"] <- "Vånga-Kristianstad"

moriczdata$kommun[moriczdata$kommun == "Våxtorp" & moriczdata$R92harad == "Höks härad"] <- "Våxtorp-Halland"
moriczdata$kommun[moriczdata$kommun == "Våxtorp" & moriczdata$R92harad == "Östbo härad"] <- "Våxtorp-Östbo"
moriczdata$kommun[moriczdata$kommun == "Våxtorp" & moriczdata$R92harad == "Södra Möre härad"] <- "Våxtorp-Kalmar"

moriczdata$kommun[moriczdata$kommun == "Vänge" & moriczdata$R92harad == "Ulleråkers härad"] <- "Vänge-Uppland"
moriczdata$kommun[moriczdata$kommun == "Vänge" & moriczdata$R92harad == "Gotlands Norra h:d"] <- "Vänge-Gotland"

moriczdata$kommun[moriczdata$kommun == "Åker" & moriczdata$R92harad == "Åkers härad"] <- "Åker-Sörmland"
moriczdata$kommun[moriczdata$kommun == "Åker" & moriczdata$R92harad == "Östbo härad"] <- "Åker-Jkpg"

moriczdata$kommun[moriczdata$kommun == "Ås" & moriczdata$R92harad == "Vestbo härad"] <- "Ås-Jkpg"
moriczdata$kommun[moriczdata$kommun == "Ås" & moriczdata$R92harad == "Gräsgårds härad"] <- "Ås-Öland"
moriczdata$kommun[moriczdata$kommun == "Ås" & moriczdata$R92harad == "Viska härad"] <- "Ås-Halland"
moriczdata$kommun[moriczdata$kommun == "Ås" & moriczdata$R92harad == "Åse härad"] <- "Ås-Skaraborg"
moriczdata$kommun[moriczdata$kommun == "Ås" & moriczdata$R92harad == "Rödöns tingslag"] <- "Ås-Jemtland"

moriczdata$kommun[moriczdata$kommun == "Öja" & moriczdata$R92harad == "Vester-Rekarne h:d"] <- "Öja-Rekarne"
moriczdata$kommun[moriczdata$kommun == "Öja" & moriczdata$R92harad == "Kinnevlds härad"] <- "Öja-Kinnevalds"
moriczdata$kommun[moriczdata$kommun == "Öja" & moriczdata$R92harad == "Gotlands Södra h:d"] <- "Öja-Gotland"
moriczdata$kommun[moriczdata$kommun == "Öja" & moriczdata$R92harad == "Herrestads härad"] <- "Öja-Herrestads"

moriczdata$kommun[moriczdata$kommun == "Ör" & moriczdata$R92harad == "Allbo härad"] <- "Ör-Allbo"
moriczdata$kommun[moriczdata$kommun == "Ör" & moriczdata$R92harad == "Nordals härad"] <- "Ör-Nordal"

moriczdata$kommun[moriczdata$kommun == "Örsjö" & moriczdata$R92harad == "Vemmenhögs h:d"] <- "Örsjö-Malmöhus"
## Örsjö förs i Kalmar finns inte i Moricz data.

moriczdata$kommun[moriczdata$kommun == "Österåker" & moriczdata$R92harad == "Åkers skeppslag"] <- "Österåker-Sthlm"
moriczdata$kommun[moriczdata$kommun == "Österåker" & moriczdata$R92harad == "Oppunda härad"] <- "Österåker-Oppunda"

moriczdata$kommun[moriczdata$kommun == "Östra Ryd" & moriczdata$R92harad == "Danderyds sk:lag"] <- "Östra Ryd-Danderyd"
moriczdata$kommun[moriczdata$kommun == "Östra Ryd" & moriczdata$R92harad == "Skärkinds härad"] <- "Östra Ryd-Skärkind"

moriczdata$kommun[moriczdata$kommun == "Öfraby" & moriczdata$R92harad == "Ingelstads härad"] <- "Övraby-Skåne"
moriczdata$kommun[moriczdata$kommun == "Öfraby" & moriczdata$R92harad == "Halmstards härad"] <- "Övraby-Halmstad"




## our final fix of the Moricz data is to merge a few municipalities that are singular in our data but appear separated into two parts in the Moricz data.
## here we need to (a) add up the total number of votes in the municipality, and (b) identify the highest nr of votes held by one person

## variables that need to be added to get the total nr of votes in different categories
columns_to_sum <- c('R92fyrk_ma_jo', 'R92fyrk_an_jo', 'R92fyrk_ov_fast', 'R92fyrk_ov_ov', 'R92fyrk_sum')
## the idenfification of max values for the top vote variables, R92hogsta_fyrk_al and R92hogsta_fyrk_jo, will be done individually for each municipality that needs to be merged



## first one: VISBY LF, which Moricz has divided into one northern part and one southern part, in the Moricz data called "Visby Norra landskommun" and "Visby Södra landskommun"
visby_rows <- moriczdata[moriczdata$kommun %in% c("Visby Norra landskommun", "Visby Södra landskommun"), ]
max_agrar_row_visby <- visby_rows[which.max(visby_rows$R92hogsta_fyrk_jo), ]
max_all_row_visby   <- visby_rows[which.max(visby_rows$R92hogsta_fyrk_al), ]
new_visby_row <- moriczdata[1, ]
new_visby_row[,] <- NA  
new_visby_row[, columns_to_sum] <- as.list(colSums(visby_rows[, columns_to_sum], na.rm = TRUE))
new_visby_row$kommun <- "Visby LF"
new_visby_row$County <- "Gotland"
new_visby_row$R92harad <- "Endre"
new_visby_row$R92hogsta_fyrk_al <- max_all_row_visby$R92hogsta_fyrk_al
new_visby_row$R92hogsta_fyrk_jo <- max_agrar_row_visby$R92hogsta_fyrk_jo
moriczdata <- moriczdata[!moriczdata$kommun %in% c("Visby Norra landskommun", "Visby Södra landskommun"), ]
moriczdata <- rbind(moriczdata, new_visby_row)
t(moriczdata[moriczdata$kommun == "Visby LF", ])

## SÖDERTÄLJE rural municipality is in the Moricz data split into two, Vestertelge and Östertelge
sodertalje_rows <- moriczdata[moriczdata$kommun %in% c("Vestertelge", "Östertelge"), ]
max_agrar_row_sodertalje <- sodertalje_rows[which.max(sodertalje_rows$R92hogsta_fyrk_jo), ]
max_all_row_sodertalje   <- sodertalje_rows[which.max(sodertalje_rows$R92hogsta_fyrk_al), ]
new_sodertalje_row <- moriczdata[1, ]
new_sodertalje_row[,] <- NA  
new_sodertalje_row[, columns_to_sum] <- as.list(colSums(sodertalje_rows[, columns_to_sum], na.rm = TRUE))
new_sodertalje_row$kommun <- "Södertälje LF"
new_sodertalje_row$County <- "Stockholm"
new_sodertalje_row$R92harad <- "Öknebo"
new_sodertalje_row$R92hogsta_fyrk_al <- max_all_row_sodertalje$R92hogsta_fyrk_al
new_sodertalje_row$R92hogsta_fyrk_jo <- max_agrar_row_sodertalje$R92hogsta_fyrk_jo
moriczdata <- moriczdata[!moriczdata$kommun %in% c("Vestertelge", "Östertelge"), ]
moriczdata <- rbind(moriczdata, new_sodertalje_row)


## BITTERNA is also split into two muncipalities in Moricz: a Western part and an Eastern part, Öster-Bitterna and Vester Bitterna
bitterna_rows <- moriczdata[moriczdata$kommun %in% c("Öster-Bitterna", "Vester Bitterna"), ]
max_agrar_row_bitterna <- bitterna_rows[which.max(bitterna_rows$R92hogsta_fyrk_jo), ]
max_all_row_bitterna   <- bitterna_rows[which.max(bitterna_rows$R92hogsta_fyrk_al), ]
new_bitterna_row <- moriczdata[1, ]
new_bitterna_row[,] <- NA  
new_bitterna_row[, columns_to_sum] <- as.list(colSums(bitterna_rows[, columns_to_sum], na.rm = TRUE))
new_bitterna_row$kommun <- "Bitterna"
new_bitterna_row$County <- "Skaraborg"
new_bitterna_row$R92harad <- "Laske"
new_bitterna_row$R92hogsta_fyrk_al <- max_all_row_bitterna$R92hogsta_fyrk_al
new_bitterna_row$R92hogsta_fyrk_jo <- max_agrar_row_bitterna$R92hogsta_fyrk_jo
moriczdata <- moriczdata[!moriczdata$kommun %in% c("Öster-Bitterna", "Vester Bitterna"), ]
moriczdata <- rbind(moriczdata, new_bitterna_row)


## VARV and STYRA must be merged -- are one municipality in our data. They are in the Moricz data spelled as "Hvarf" and "Styrn", respectively. "Hvarf" has been renamed "Hvarf-Aska" in the code
## above, to separate it from another municipality called Varv.
varv_rows <- moriczdata[moriczdata$kommun %in% c("Hvarf-Aska", "Styrn"), ]
max_agrar_row_varv <- varv_rows[which.max(varv_rows$R92hogsta_fyrk_jo), ]
max_all_row_varv   <- varv_rows[which.max(varv_rows$R92hogsta_fyrk_al), ]
new_varv_row <- moriczdata[1, ]
new_varv_row[,] <- NA  
new_varv_row[, columns_to_sum] <- as.list(colSums(varv_rows[, columns_to_sum], na.rm = TRUE))
new_varv_row$kommun <- "Varv-Aska"
new_varv_row$County <- "Östergötland"
new_varv_row$R92harad <- "Aska härad"
new_varv_row$R92hogsta_fyrk_al <- max_all_row_varv$R92hogsta_fyrk_al
new_varv_row$R92hogsta_fyrk_jo <- max_agrar_row_varv$R92hogsta_fyrk_jo
moriczdata <- moriczdata[!moriczdata$kommun %in% c("Hvarf-Aska", "Styrn"), ]
moriczdata <- rbind(moriczdata, new_varv_row)
t(moriczdata[moriczdata$kommun == "Varv-Aska", ])


## FALKÖPING LF is in the Moricz data like Visby, Södertälje and Bitterna divided intro two parts: one western and eastern. We merge the two
falkoping_rows <- moriczdata[moriczdata$kommun %in% c("Falköping västra LF", "Falköping östra LF"), ]
max_agrar_row_falkoping <- falkoping_rows[which.max(falkoping_rows$R92hogsta_fyrk_jo), ]
max_all_row_falkoping   <- falkoping_rows[which.max(falkoping_rows$R92hogsta_fyrk_al), ]
new_falkoping_row <- moriczdata[1, ]
new_falkoping_row[,] <- NA  
new_falkoping_row[, columns_to_sum] <- as.list(colSums(falkoping_rows[, columns_to_sum], na.rm = TRUE))
new_falkoping_row$kommun <- "Falköping LF"
new_falkoping_row$County <- "Skaraborg"
new_falkoping_row$R92harad <- "Gudems härad"
new_falkoping_row$R92hogsta_fyrk_al <- max_all_row_falkoping$R92hogsta_fyrk_al
new_falkoping_row$R92hogsta_fyrk_jo <- max_agrar_row_falkoping$R92hogsta_fyrk_jo
moriczdata <- moriczdata[!moriczdata$kommun %in% c("Falköping västra LF", "Falköping östra LF"), ]
moriczdata <- rbind(moriczdata, new_falkoping_row)
t(moriczdata[moriczdata$kommun == "Falköping LF", ])


## clean workspace
rm(columns_to_sum, visby_rows, max_agrar_row_visby, max_all_row_visby, new_visby_row,
   sodertalje_rows, max_agrar_row_sodertalje, max_all_row_sodertalje, new_sodertalje_row,
   bitterna_rows, max_agrar_row_bitterna, max_all_row_bitterna, new_bitterna_row,
   varv_rows, max_agrar_row_varv, max_all_row_varv, new_varv_row,
   falkoping_rows, max_agrar_row_falkoping, max_all_row_falkoping, new_falkoping_row)


## CREATING THE INEQUALITY VARIABLES
## the first inequality variable based on the Moricz data: the top 1892 vote holder's share of total votes
moriczdata$toppfyrk=100*moriczdata$R92hogsta_fyrk_al/moriczdata$R92fyrk_sum
## the second version is the equivalent, but only counting votes allotted on the base of agrarian holdings
moriczdata$toppagrarianfyrk <- 100 * moriczdata$R92hogsta_fyrk_jo / 
  (moriczdata$R92fyrk_ma_jo + ifelse(is.na(moriczdata$R92fyrk_an_jo), 0, moriczdata$R92fyrk_an_jo))

## for the output
setwd("~/Library/CloudStorage/Dropbox/09 Sonderweg/Replication/temp")
write.xlsx(moriczdata, "moriczinequalitydata.xlsx")

